          SUBROUTINE (PASSER)
** Version# 9.0002[9] - 07/03/2012 - 01:48pm - TSMITH - eclipse
*** V9.0002 Change - Custom Coding . - 07/03/2012 - TSMITH - eclipse
** Copied from BP SOE.DVR.LEDGER.LOG Version# 9 - 05/27/2011 - 04:35pm - NKURTH - main

*** Subroutine: SOE.DVR.LEDGER.LOG
*-------------------------------------------------------------------------*
*** Driver for the Order Change Log Report, SOE.PHR.LEDGER.LOG
*-------------------------------------------------------------------------*
***   PASSER - not used
*-------------------------------------------------------------------------*

          SCREEN

          DRPT$      = 'Order Change Log Report'
          SD         = ''
          ED         = ''
          BRCHS      = ''
          UID        = 'LORIM'
          ORDTYP     = 'Sales'
          SPAT       = 'Printed Invoice on LP8'
          BR         = ''
          TERR.TYPE  = 1
          OT.LIST    = "Sales":VM:"Transfer":VM:"Purchase":VM:"ALL"

          MENU.LOAD  2,10,5,1,'P'
          MENU.LOAD 10,10,4,1,'H'
          MENU.LOAD 17,10,4,1,'O'
*-------------------------------------------------------------------------*
INBR:     INP.BR 17,3,10,BR,NAME,BRCHS,TERR.TYPE
          IF F12 THEN GOTO FINISH
          ON MOVE+1 GOTO INBR,INBR,INBR,INBR,INSD,INSD
*-------------------------------------------------------------------------*
INSD:     INP SD,17,4,10,'VD4/'
          IF F12 THEN GOTO FINISH
          IF ED = '' THEN
             ED = SD
             PRINT @(17,4):OCONV(ED,'D4/')    "L#10"
          END
          ON MOVE+1 GOTO INSD,INSD,INBR,INSD,INED,INED
*-------------------------------------------------------------------------*
INED:     INP ED,17,5,10,'VD4/'
          IF F12 THEN GOTO FINISH
          ON MOVE+1 GOTO INED,INED,INSD,INED,INED,INED
*-------------------------------------------------------------------------*
*INUID:    INP UID,17,6,10,'MCU',V_'S:VERF.USER.ID.ONLY'
*          IF F12 THEN GOTO FINISH
*          ON MOVE+1 GOTO INUID,INUID,INED,INUID
*-------------------------------------------------------------------------*
INORT:     ORDTYP='Sales'
*INORT:    INP ORDTYP,17,7,8,V_"D:":OT.LIST
*          IF F12 THEN GOTO FINISH
*          ON MOVE+1 GOTO INORT,INORT,INUID,INORT
*-------------------------------------------------------------------------*
INPAT:    SPAT="Invoice printed on LP8"
*INPAT:    INP SPAT,17,8,25
*          SPAT="Invoice printed on LP8"
*          IF F12 THEN GOTO FINISH
*          ON MOVE+1 GOTO INPAT,INPAT,INORT,INPAT,INPAT,INPAT
*-------------------------------------------------------------------------*
SUBS:     IF SD='' THEN PRINT BELL:; RETURN TO INSD
          IF NUM(SD) AND NUM(ED) THEN
             IF SD > ED THEN
                ERR.MESS 1,1,BELL:' Start Date must be before End Date'
                RETURN TO INSD
             END
          END
          IF ORDTYP = '' THEN PRINT BELL:; RETURN TO INORT
          ORDTYP = ORDTYP[1,1]
          IF UID='' AND SPAT='' THEN PRINT BELL:; RETURN TO INPAT

          PH.SETUP.BR.ARGS BR,,TERR.TYPE,,BRDISP,BRLIST
          PH.EXE 'SOE.PHR.LEDGER.LOG.BETA',BRDISP,BRLIST,SD,ED,UID,ORDTYP,SPAT
          IF F12 THEN RETURN
          RETURN TO FINISH
*-------------------------------------------------------------------------*
FINISH:   WINDOW.CLOSE
          RETURN
!TSMITH~07/03/12~13:48
